home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed15.d64 / lesson 10 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  241 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 10                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"          STR$ENOMINATE (null)UMBERS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  LEFT$OW MANY SHOES ARE THERE IN 38 PAIRS
  51. 210 PRINT"  OF SHOES?"
  52. 220 GOSUB81:GOSUB70
  53. 225 PRINT"             [145]"
  54. 230 INPUT A$
  55. 240 IFA$<>"76"THEN 270
  56. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  57. 260 P=P+1:GOTO300
  58. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  59. 275 IFZ=2THENG=G+1:GOTO285
  60. 280 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  61. 282 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  62. 283 GOTO225
  63. 285 PRINT"[145][145][158]  [212]HE ANSWER IS 76[158].             ":GOSUB82
  64. 290 PRINT"  38 X 2 = 76                    "
  65. 295 GOSUB82:GOSUB90
  66. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  67. 305 PRINT"  [202]AMIE CAUGHT A FISH THAT WEIGHED
  68. 310 [153]"  1.75 KILOS AND CHR$ILLIAN CAUGHT ONE       THAT WEIGHED 1755 GRAMS.
  69. 315 PRINT"  [215]AS [202]AMIES FISH BIGGER?"
  70. 320 GOSUB81:GOSUB70
  71. 325 PRINT"             [145]"
  72. 330 INPUT A$
  73. 340 IFA$<>"[206]"ANDA$<>"N"ANDA$<>"NO"THEN370
  74. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  75. 360 P=P+1:GOTO400
  76. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  77. 375 IFZ=2THENG=G+1:GOTO385
  78. 380 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  79. 382 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  80. 383 GOTO325
  81. 385 PRINT"[145][145][158]  [212]HE ANSWER IS NO[158].             ":GOSUB82
  82. 390 PRINT"  1755 - 1750 = 5                "
  83. 395 GOSUB82:GOSUB90
  84. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  85. 405 PRINT"  [198]IND THE COST OF A DOZEN GRAPEFRUIT
  86. 410 [153]"  AT 37 CENTS EACH."
  87. 415 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  88. 420 [141]81:[141]70
  89. 425 [153]"             ON"
  90. 430 [133] A$
  91. 440 [139]A$[179][177]"$4.44"[167]470
  92. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  93. 460 P[178]P[170]1:[137]500
  94. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  95. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  96. 480 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  97. 482 [153]"OPENONON                                        ONONONONONONON"
  98. 483 [137]425
  99. 485 [153]"ONONSYS  (null)HE ANSWER IS $4.44SYS.           ":[141]82
  100. 490 [153]"  .37 X 12 = 4.44                 "
  101. 495 [141]82:[141]90
  102. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  103. 505 [153]"  (null)HIRTY-THREE CHILDREN ARE INVITED
  104. 510 PRINT"  TO THE PARTY.
  105. 515 [153]"  (null)ILL THREE DOZEN CHAIRS BE ENOUGH       TO SEAT THEM?"
  106. 520 [141]81:[141]70
  107. 525 [153]"             ON"
  108. 530 [133] A$
  109. 540 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[175]A$[179][177]"YES"[167] 570
  110. 550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  111. 560 P[178]P[170]1:[137]600
  112. 570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  113. 575 [139]Z[178]2[167]G[178]G[170]1:[137]585
  114. 580 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  115. 582 [153]"OPENONON                                        ONONONONONONON"
  116. 583 [137]525
  117. 585 [153]"ONONSYS  (null)HE ANSWER IS YESSYS.             ":[141]82
  118. 590 [153]"  36 - 33 = 3                    "
  119. 595 [141]82:[141]90
  120. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  121. 605 [153]"  LEFT$OW MANY METRES ARE THERE IN A HOSE
  122. 610 PRINT"  THAT IS 8500 CENTIMETRES LONG?"
  123. 620 GOSUB81:GOSUB70
  124. 625 PRINT"             [145]"
  125. 630 INPUT A$
  126. 640 IFA$<>"85"THEN 670
  127. 650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  128. 660 P=P+1:GOTO700
  129. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  130. 675 IFZ=2THENG=G+1:GOTO685
  131. 680 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  132. 682 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  133. 683 GOTO625
  134. 685 PRINT"[145][145][158]  [212]HE ANSWER IS 85[158] M.          ":GOSUB82
  135. 690 PRINT"  8500 / 100 = 85               "
  136. 695 GOSUB82:GOSUB90
  137. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  138. 705 PRINT"  [211]EVEN METRES OF CLOTH COST $5.25.
  139. 710 [153]"  (null)HAT WAS THE PRICE PER METRE?"
  140. 725 [153]"             ON"
  141. 730 [133] A$
  142. 740 [139]A$[179][177]"$.75"[175]A$[179][177]"75 CENTS"[167] 770
  143. 750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  144. 760 P[178]P[170]1:[137]800
  145. 770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  146. 775 [139]Z[178]2[167]G[178]G[170]1:[137]785
  147. 780 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  148. 782 [153]"OPENONON                                        ONONONONONONON"
  149. 783 [137]725
  150. 785 [153]"ONONSYS  (null)HE ANSWER IS 75SYS CENTS.       ":[141]82
  151. 790 [153]"  5.25 / 7 = .75                 "
  152. 795 [141]82:[141]90
  153. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  154. 805 [153]"  (null)ARAH HAS HALF A DOLLAR.  LEFT$OW MUCH
  155. 810 PRINT"  MORE MONEY DOES SHE NEED TO BUY
  156. 815 [153]"  A PEN FOR 75 CENTS?"
  157. 820 [141]81:[141]70
  158. 825 [153]"             ON"
  159. 830 [133] A$
  160. 840 [139]A$[179][177]"25"[175]A$[179][177]"$.25"[175]A$[179][177]"25 CENTS"[167] 870
  161. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  162. 860 P[178]P[170]1:[137]900
  163. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  164. 875 [139]Z[178]2[167]G[178]G[170]1:[137]885
  165. 880 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  166. 882 [153]"OPENONON                                        ONONONONONONON"
  167. 883 [137]825
  168. 885 [153]"ONONSYS  (null)HE ANSWER IS 25SYS CENTS.       ":[141]82
  169. 890 [153]"  .75 - .50 = .25                "
  170. 895 [141]82:[141]90
  171. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  172. 905 [153]"  PEEKEN EARNED A QUARTER AND 15 CENTS       ON (null)ATURDAY.
  173. 910 PRINT"  [200]OW MUCH DID HE EARN THAT DAY?"
  174. 920 GOSUB81:GOSUB70
  175. 925 PRINT"             [145]"
  176. 930 INPUT A$
  177. 940 IFA$<>"$.40"ANDA$<>"40 CENTS"THEN 970
  178. 950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  179. 960 P=P+1:GOTO1000
  180. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  181. 975 IFZ=2THENG=G+1:GOTO985
  182. 980 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  183. 982 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  184. 983 GOTO925
  185. 985 PRINT"[145][145][158]  [212]HE ANSWER IS 40[158] CENTS.       ":GOSUB82
  186. 990 PRINT"  25 + 15 = 40                   "
  187. 995 GOSUB82:GOSUB90
  188. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  189. 1005 PRINT"  [200]OW MUCH MORE ARE 5 DOZEN THAN 55?
  190. 1020 [141]81:[141]70
  191. 1025 [153]"             ON"
  192. 1030 [133] A$
  193. 1040 [139]A$[179][177]"5"[167]1070
  194. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  195. 1060 P[178]P[170]1:[137]1100
  196. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  197. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  198. 1080 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  199. 1082 [153]"OPENONON                                        ONONONONONONON"
  200. 1083 [137]1025
  201. 1085 [153]"ONONSYS  (null)HE ANSWER IS 5SYS.             ":[141]82
  202. 1090 [153]"  60 - 55 = 5                    "
  203. 1095 [141]82:[141]90
  204. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  205. 1105 [153]"  LEFT$OW MANY HOURS IS IT BETWEEN SEVEN
  206. 1110 PRINT"  IN THE MORNING AND FOUR IN THE          AFTERNOON?"
  207. 1120 GOSUB81:GOSUB70
  208. 1125 PRINT"             [145]"
  209. 1130 INPUT A$
  210. 1140 IFA$<>"9"THEN 1170
  211. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  212. 1160 GOTO1200
  213. 1170 PRINT"[150]  [207][213][195][200]! .......... [199]OOD GRIEF!":GOSUB60:GOSUB82:Z=Z+1
  214. 1175 IFZ=2THENG=G+1:GOTO1185
  215. 1180 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  216. 1182 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  217. 1183 GOTO1125
  218. 1185 PRINT"[145][145][158]  [212]HE ANSWER IS 9[158] HOURS.         ":GOSUB82
  219. 1190 PRINT"  [212]HINK ABOUT IT!                "
  220. 1195 GOSUB82:GOSUB90
  221. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  222. 1205 D=W-G:C=10-W
  223. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  224. 1215 [153]"                 ";C
  225. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  226. 1225 PRINT"                 ";D
  227. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  228. 1235 [153]"                 ";G;""
  229. 1245 [141]90
  230. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  231. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  232. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  233. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  234. 1270 [139]R$[178]"R"[167][140]:[137]100
  235. 1275 [140]
  236. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  237. 1285 LOAD"MENU",8
  238. 1290 RUN
  239. 1295 END
  240. 1300 REM BILL CUMBERLAND 90:12:26
  241.